home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 51 / Amiga Format CD51 (2000-03-10)(Future Publishing)(GB)[!][issue 2000-04].iso / -serious- / programming / e / powerd / source / examples / readargs.d < prev    next >
Text File  |  2000-01-27  |  455b  |  17 lines
  1. // small example, of how to use shell arguments with PowerD
  2.  
  3. OPT    OSVERSION=37
  4.  
  5. MODULE    'startup/startup_dos'    // only open dos.library, we don't need more.
  6.  
  7. PROC main()
  8.     DEF    myargs:PTR TO LONG,rdargs
  9.     myargs:=[0,0,0,0]:LONG
  10.     IF rdargs:=ReadArgs('NAME/A,NUMBER/N,BOOL/S,OPT/K',myargs,NIL)
  11.         PrintF('NAME=\s\nNUMBER=\d\nBOOL=\d\nOPT=\s\n',myargs[0],Long(myargs[1]),myargs[2],myargs[3])
  12.         FreeArgs(rdargs)
  13.     ELSE
  14.         PrintFault(IOErr(),'readargs')
  15.     ENDIF
  16. ENDPROC
  17.